--- a/RegressionTests__BlockTest.st	Sat Apr 01 15:24:32 2000 +0200
+++ b/RegressionTests__BlockTest.st	Sat Apr 01 15:27:39 2000 +0200
@@ -62,6 +62,13 @@
     b := self getVarArgBlock1.
 
     b value.
+    b code notNil ifTrue:[
+        Transcript showCR:'blocks code is jitted'
+    ] ifFalse:[
+        Transcript showCR:'*** blocks code is NOT jitted'
+    ].
+
+    b value.
     b value:'arg1'.
     b value:'arg1' value:'arg2' value:'arg3' value:'arg4'
 
@@ -75,6 +82,13 @@
 
     b := self getVarArgBlock2.
 
+    b value.
+    b code notNil ifTrue:[
+        Transcript showCR:'blocks code is jitted'
+    ] ifFalse:[
+        Transcript showCR:'*** blocks code is NOT jitted'
+    ].
+
     b value     = #()  ifFalse:[ self halt ].
     (b value:1) = #(1) ifFalse:[ self halt ].
     (b value:1 value:2) = #(1 2) ifFalse:[ self halt ].
@@ -99,6 +113,13 @@
 
     b := self getVarArgBlock3.
 
+    b value.
+    b code notNil ifTrue:[
+        Transcript showCR:'blocks code is jitted'
+    ] ifFalse:[
+        Transcript showCR:'*** blocks code is NOT jitted'
+    ].
+
     b value     = 0  ifFalse:[ self halt ].
     (b value:1) = 1 ifFalse:[ self halt ].
     (b value:1 value:2) = 2 ifFalse:[ self halt ].