Index: tol/btol/bgrammar/nameblock.cpp
===================================================================
--- tol/btol/bgrammar/nameblock.cpp	(revision dbf6f72253a6f5ca05f1bd9936514b448d45a132)
+++ tol/btol/bgrammar/nameblock.cpp	(revision 73bfcd15e3d4f4e0c7d903ba124f0a9d7e4dc0ca)
@@ -661,9 +661,14 @@
   }
   obj->PutNameBlock(this);
+/*
   if((obj->Grammar()==GraCode())&&(obj->Mode()==BOBJECTMODE))
   {
     BOperator* opr = Code(obj).Operator();
-    opr->PutNameBlock(this);
-  }
+    if(!(opr->NameBlock()))
+    {
+      opr->PutNameBlock(this);
+    }
+  }
+*/
   if(name[0]!='_')
   {