diff --git a/src/llogo/loader.154 b/src/llogo/loader.154
index 48ad0ec6..d844d0aa 100644
--- a/src/llogo/loader.154
+++ b/src/llogo/loader.154
@@ -21,7 +21,7 @@
 		(CONS (PAGEBPORG)
 		      (MAPCAR '(LAMBDA (SPACE) 
 				       (CONS (- (STATUS SPCSIZE SPACE)
-						(CDDR (ASSOC SPACE FREE)))
+						(NTH 2 (ASSOC SPACE FREE)))
 					     (ERRSET (STATUS PURSIZE SPACE) NIL)))
 			      (STATUS SPCNAMES))))
 	NIL)
@@ -108,7 +108,7 @@ UUO:/	)	(PRINC (COND ((NUMBERP PURE) (* PURE 2048.)) (0.)))
                       (PRINC SPACE)
                       (PRINC ':/	)
                       (PRINC (- (- (STATUS SPCSIZE SPACE)
-                                   (CDDR (ASSOC SPACE FREE)))
+                                   (NTH 2 (ASSOC SPACE FREE)))
                               (CAR OLD-SIZE)))
                       (PRINC '/ IMPURE/ WORDS/ USED/
 )		      (AND (CDR OLD-SIZE)