--- a/BlockNode.st	Sun Jul 06 13:28:50 1997 +0200
+++ b/BlockNode.st	Tue Jul 08 12:14:38 1997 +0200
@@ -708,10 +708,14 @@
 !
 
 wrongNumberOfArguments:numberGiven
+    "report that the number of arguments given does not match the number expected"
+
     Block argumentSignal
-	raiseRequestWith:self
-	errorString:('block got ' , numberGiven printString ,
-		     ' args while ' , blockArgs size printString , ' where expected')
+        raiseRequestWith:self
+        errorString:('block got ' , numberGiven printString ,
+                     ' args where ' , blockArgs size printString , ' expected')
+
+    "Modified: 8.7.1997 / 01:04:27 / stefan"
 ! !
 
 !BlockNode methodsFor:'looping'!
@@ -896,5 +900,5 @@
 !BlockNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.48 1997-07-02 16:55:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.49 1997-07-08 10:14:38 stefan Exp $'
 ! !