diff --git a/doc/ikarus-users-guide.pdf b/doc/ikarus-users-guide.pdf
index 81870c8..44d7b2c 100644
Binary files a/doc/ikarus-users-guide.pdf and b/doc/ikarus-users-guide.pdf differ
diff --git a/doc/ikarus-users-guide.tex b/doc/ikarus-users-guide.tex
index d875a43..b9509f5 100644
--- a/doc/ikarus-users-guide.tex
+++ b/doc/ikarus-users-guide.tex
@@ -1073,8 +1073,10 @@ its mode changes to \texttt{ikarus-mode}.
    ikarus-mode
 \end{verbatim}
 
-\defun{set-port-mode!}{procedure}
-\texttt{(set-port-mode! ip mode)} 
+\idxlabeldefun{set-port-mode"!}{set-port-mode"!}{set-port-mode-bang}{set-port-mode!}{procedure}
+%\defun{set-port-mode!}{procedure}
+%\index{set-port-mode@\texttt{set-port-mode"!}}
+\texttt{(set-port-mode!\ ip mode)} 
 
 The \texttt{set-port-mode!} procedure modifies the lexical syntax
 accepted by subsequent calls to \texttt{read} on the input port.
diff --git a/scheme/last-revision b/scheme/last-revision
index 4880c9f..e601c44 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1132
+1135
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index 2ad155d..87a62b2 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -3386,12 +3386,14 @@
         (error 'syntax-error "invalid argument" args))
       (raise 
         (condition 
-          (make-who-condition 'expander)
+          ;(make-who-condition 'expander)
           (make-message-condition
             (if (null? args) 
                 "invalid syntax"
                 (apply string-append args)))
-          (stx->datum x)))))
+          (make-syntax-violation 
+            (stx->datum x)
+            'none)))))
 
   (define identifier? (lambda (x) (id? x)))