--- a/BlockNode.st	Wed Apr 13 13:05:31 2005 +0200
+++ b/BlockNode.st	Thu Apr 14 14:58:49 2005 +0200
@@ -889,6 +889,10 @@
     "Modified: 2.7.1997 / 18:55:36 / cg"
 !
 
+isJavaScriptBlock
+    ^ false
+!
+
 numArgs
     "return the number of arguments the block represented by myself
      expects for evaluation"
@@ -917,5 +921,5 @@
 !BlockNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.70 2005-01-21 16:50:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.71 2005-04-14 12:58:49 cg Exp $'
 ! !