--- a/PrimitiveNode.st	Tue Jul 19 21:17:28 2011 +0200
+++ b/PrimitiveNode.st	Tue Jul 19 21:17:45 2011 +0200
@@ -68,6 +68,12 @@
     ^ self basicNew primitiveNumber:anInteger
 ! !
 
+!PrimitiveNode class methodsFor:'others'!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.23 2011-07-19 19:17:45 vrany Exp $'
+! !
+
 !PrimitiveNode methodsFor:'accessing'!
 
 code:aString
@@ -139,6 +145,15 @@
 
 !PrimitiveNode methodsFor:'queries'!
 
+containsReturn
+
+    "/JV@2011-07-19: I'm not quite sure that this is OK..."
+    ^(code includesString: 'return') 
+        or: [code includesString: 'RETURN']
+
+    "Created: / 19-07-2011 / 18:47:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 isConstant
     ^ false
 !
@@ -162,5 +177,5 @@
 !PrimitiveNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.22 2008-07-25 12:45:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.23 2011-07-19 19:17:45 vrany Exp $'
 ! !