Index: ssax-chicken.scm
===================================================================
--- ssax-chicken.scm	(revision 27962)
+++ ssax-chicken.scm	(working copy)
@@ -33,7 +33,11 @@
   (core:assert (= k 1) "attempt to call ssax:make-string with k != 1")
   (string x))
 
-(define parser-error error)
+(define (parser-error port msg . specialising-msg*)
+  (signal (make-composite-condition
+           (make-property-condition 'ssax)
+           (make-property-condition 'parser-error)
+           (make-property-condition 'exn 'message msg 'arguments specialising-msg*))))
 
 (define (ssax:warn port msg . other-msg)
   (apply cerr (cons* nl "Warning: " msg other-msg)))