diff -u a/srfi-34.scm b/srfi-34.scm
--- a/srfi-34.scm	2015-08-22 10:23:24.309039564 +0200
+++ b/srfi-34.scm	2015-08-22 10:23:08.469551364 +0200
@@ -13,7 +13,8 @@
     raise
     guard)
 
-(import (except chicken with-exception-handler) scheme)
+(import scheme (only chicken make-parameter :)
+	(prefix chicken chicken:))
 
 (define current-exception-handlers
  (make-parameter
@@ -36,12 +37,14 @@
   (with-exception-handlers (cons handler (current-exception-handlers))
                            thunk))
 
+(set! chicken:with-exception-handler with-exception-handler)
+
 (define (raise obj)
   (let ((handlers (current-exception-handlers)))
     (with-exception-handlers (cdr handlers)
       (lambda ()
         ((car handlers) obj)
-        (error "handler returned"
+        (chicken:error "handler returned"
                (car handlers)
                obj)))))