--- a/RegressionTests__ParserTest.st	Tue Apr 09 22:31:27 2013 +0200
+++ b/RegressionTests__ParserTest.st	Tue Apr 09 22:31:51 2013 +0200
@@ -81,10 +81,16 @@
 test4
     |b1 b2|
 
-    b1 := Parser evaluate:'[ NotYetLoadedClass ]'.
+    self should:[
+        b1 := Parser evaluate:'[ NotYetLoadedClass ]'.
+    ] raise:ParseError.
+
     self assert:(b1 == nil).
 
-    b2 := Parser evaluate:'[ NonExistingNameSpace::NotYetLoadedClass ]'.
+    self should:[
+        b2 := Parser evaluate:'[ NonExistingNameSpace::NotYetLoadedClass ]'.
+    ] raise:ParseError.
+
     self assert:(b2 == nil).
 
     "
@@ -98,3 +104,4 @@
 version
     ^ '$Header$'
 ! !
+