Index: input-parse-chicken.scm
===================================================================
--- input-parse-chicken.scm	(revision 27962)
+++ input-parse-chicken.scm	(working copy)
@@ -14,9 +14,14 @@
 (define char-tab (ascii->char 9))
 (define char-newline (ascii->char 10))
 
-(define parser-error error)
+(define (parser-error port msg . specialising-msg*)
+  (signal
+   (make-composite-condition
+    (make-property-condition 'input-parse)
+    (make-property-condition 'parse-error)
+    (make-property-condition 'exn 'message msg 'arguments specialising-msg*))))
 
 (include "myenv-chicken.scm")
 (include "input-parse.scm")
 
-)
\ No newline at end of file
+)