diff --git a/scheme/ikarus.fasl.ss b/scheme/ikarus.fasl.ss
index df438fe..c6b891a 100644
--- a/scheme/ikarus.fasl.ss
+++ b/scheme/ikarus.fasl.ss
@@ -284,21 +284,27 @@
              (or (vector-ref marks m)
                  (error who "uninitialized mark" m)))]
           [(#\l) ;;; list of length <= 255
-           (let ([n (read-u8 p)])
-             (let f ([n n])
-               (cond
-                 [(< n 0) (read)]
-                 [else 
-                  (let ([x (read)])
-                    (cons x (f (- n 1))))])))]
+           (let ([ls 
+                  (let ([n (read-u8 p)])
+                    (let f ([n n])
+                      (cond
+                        [(< n 0) (read)]
+                        [else 
+                         (let ([x (read)])
+                           (cons x (f (- n 1))))])))])
+             (when m (put-mark m ls))
+             ls)]
           [(#\L) ;;; list of length > 255
-           (let ([n (read-int p)])
-             (let f ([n n])
-               (cond
-                 [(< n 0) (read)]
-                 [else 
-                  (let ([x (read)])
-                    (cons x (f (- n 1))))])))]
+           (let ([ls 
+                  (let ([n (read-int p)])
+                    (let f ([n n])
+                      (cond
+                        [(< n 0) (read)]
+                        [else 
+                         (let ([x (read)])
+                           (cons x (f (- n 1))))])))])
+             (when m (put-mark m ls))
+             ls)]
           [else
            (die who "Unexpected char as a fasl object header" h)])))
     (read))
diff --git a/scheme/last-revision b/scheme/last-revision
index 1a7d37e..12c4d99 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1397
+1398