diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm
index 9650f309..e90f0416 100644
--- a/lib/srfi/38.scm
+++ b/lib/srfi/38.scm
@@ -258,7 +258,8 @@
                 (read-one) ;; discard
                 (read-one))
                ((#\|)
-                (skip-comment in 0))
+                (skip-comment in 0)
+                (read-one))
                ((#\!)
                 (let ((name (read-name #f in)))
                   (cond