--- a/RegressionTests__CompilerTest.st	Thu Jul 20 18:39:33 2000 +0200
+++ b/RegressionTests__CompilerTest.st	Thu Jul 20 18:55:19 2000 +0200
@@ -187,6 +187,16 @@
     "
 !
 
+testIf4:val
+    ^ val isNil
+
+    "
+     self new testIf4:#CursorRight 
+     self new testIf4:1             
+     self new testIf4:nil             
+    "
+!
+
 testIf4:val1 with:val2
     ^ (val1 == nil and:[val2 == nil])
 
@@ -198,6 +208,16 @@
     "
 !
 
+testIf5:val
+    ^ val isNil ifTrue:[1]
+
+    "
+     self new testIf5:#CursorRight 
+     self new testIf5:1             
+     self new testIf5:nil             
+    "
+!
+
 testIf5:val1 with:val2
     ^ (val1 isNil and:[val2 isNil])
 
@@ -209,6 +229,26 @@
     "
 !
 
+testIf6:val
+    ^ val isNil ifTrue:1
+
+    "
+     self new testIf6:#CursorRight  
+     self new testIf6:1             
+     self new testIf6:nil             
+    "
+!
+
+testIf7:val
+    ^ val ? 1
+
+    "
+     self new testIf7:#CursorRight  
+     self new testIf7:1             
+     self new testIf7:nil             
+    "
+!
+
 testIfElse1:val
     |x|