--- a/ObjMem.st	Tue Oct 01 16:49:25 1996 +0200
+++ b/ObjMem.st	Wed Oct 02 13:35:15 1996 +0200
@@ -1333,7 +1333,7 @@
     /*
      * allInstancesDo needs a temporary to hold newSpace objects
      */
-    if (__allInstancesOfDo(&aClass, &aBlock, &work COMMA_CON) < 0) {
+    if (__allInstancesOfDo(&aClass, &aBlock, &work) < 0) {
 	RETURN (false);
     }
 %}.
@@ -1354,7 +1354,7 @@
     /*
      * allObjectsDo needs a temporary to hold newSpace objects
      */
-    if (__allInstancesOfDo((OBJ *)0, &aBlock, &work COMMA_CON) < 0) {
+    if (__allInstancesOfDo((OBJ *)0, &aBlock, &work) < 0) {
 	RETURN (false);
     }
 %}.
@@ -1365,7 +1365,7 @@
     "evaluate the argument, aBlock for all old objects in the system.
      For debugging and tests only - do not use"
 %{
-    if (__allInstancesOfDo((OBJ *)0, &aBlock, (OBJ *)0 COMMA_CON) < 0) {
+    if (__allInstancesOfDo((OBJ *)0, &aBlock, (OBJ *)0) < 0) {
 	RETURN (false);
     }
 %}. 
@@ -2561,7 +2561,7 @@
     "evaluate the argument, aBlock for all known shadow objects which have
      lost a pointer recently."
 %{
-    __allChangedShadowObjectsDo(&aBlock COMMA_CON);
+    __allChangedShadowObjectsDo(&aBlock);
 %}
 !
 
@@ -2661,7 +2661,7 @@
      the pages address as argument. 
      For internal & debugging use only."
 %{
-    if (__collectedOldSpacePagesDo(&aBlock COMMA_CON) < 0) {
+    if (__collectedOldSpacePagesDo(&aBlock) < 0) {
 	RETURN (false);
     }
 %}.
@@ -2673,7 +2673,7 @@
      the pages address as argument.
      For internal & debugging use only."
 %{
-    if (__newSpacePagesDo(&aBlock COMMA_CON) < 0) {
+    if (__newSpacePagesDo(&aBlock) < 0) {
 	RETURN (false);
     }
 %}.
@@ -2685,7 +2685,7 @@
      the pages address as argument. 
      For internal & debugging use only."
 %{
-    if (__oldSpacePagesDo(&aBlock COMMA_CON) < 0) {
+    if (__oldSpacePagesDo(&aBlock) < 0) {
 	RETURN (false);
     }
 %}.
@@ -3534,6 +3534,6 @@
 !ObjectMemory  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.109 1996-09-20 07:29:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.110 1996-10-02 11:32:50 cg Exp $'
 ! !
 ObjectMemory initialize!