diff --git a/blk/106 b/blk/106
index 7ec00d8..5478463 100644
--- a/blk/106
+++ b/blk/106
@@ -2,7 +2,7 @@ CREATE ACC 0 ,
 : _LIST ." Block " DUP . NL LIST ;
 : _NUM
     ACC @ SWAP _pdacc
-    IF _LIST 0 THEN
+    1 = IF _LIST 0 THEN
     ACC !
 ;
 : L BLK> @ _LIST ;