--- a/DoWhatIMeanSupport.st	Tue Jun 01 18:31:24 2010 +0200
+++ b/DoWhatIMeanSupport.st	Tue Jun 08 13:20:35 2010 +0200
@@ -863,8 +863,10 @@
     ] ifFalse:[
         tree := RBParser
                 parseMethod:source
-                onError: [:str :err ":nodesSoFar" | ^ nil].
-    
+                onError: [:str :err ":nodesSoFar" | 
+                    "Transcript showCR:'Parse-Error: ',str." 
+                    ^ nil].
+
         tree isNil ifTrue:[^ nil].
 
         LastSource := source.
@@ -880,7 +882,7 @@
     ].
     ^ node
 
-    "Modified: / 16-11-2006 / 19:04:03 / cg"
+    "Modified: / 08-06-2010 / 13:20:30 / cg"
 !
 
 findNodeForInterval:interval in:source allowErrors:allowErrors
@@ -1925,9 +1927,9 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.72 2010-05-11 10:07:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.73 2010-06-08 11:20:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.72 2010-05-11 10:07:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.73 2010-06-08 11:20:35 cg Exp $'
 ! !