diff --git a/moo/kernel/test-001.moo b/moo/kernel/test-001.moo
index ca04d51..add4a78 100644
--- a/moo/kernel/test-001.moo
+++ b/moo/kernel/test-001.moo
@@ -206,8 +206,20 @@ extend MyObject
 			[ (0 rem: -50000000000000000000000000000000000000000000000000000000000000000000) = 0 ],
 			[ (16r2dd01fc06c265c8163ac729b49d890939826ce3dd div: 16r3b9aca00) = 4184734490355220618401938634485367707982 ],
 			[ (16r2dd01fc06c265c8163ac729b49d890939826ce3dd rem: 16r3b9aca00) = 394876893 ],
-			[ (16rFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF bitAnd: 16r1111111111111111111111111111111111111111) = 16r1111111111111111111111111111111111111111 ]
+			[ (16rFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF bitAnd: 16r1111111111111111111111111111111111111111) = 16r1111111111111111111111111111111111111111 ],
 
+
+			## 60-64
+			[
+				| b |
+				b := [:n | (n > 0) ifTrue: [ n * (b value: n - 1)] ifFalse: [1]].
+				(b value: 3) == 6
+			],
+			[
+				| b |
+				b := [:n | (n > 0) ifTrue: [ (b value: n - 1) * n] ifFalse: [1]].
+				(b value: 3) == 6
+			]
 		).
 
 		limit := tc size.