Index: tol/btol/set_type/setgra.cpp
===================================================================
--- tol/btol/set_type/setgra.cpp	(revision 3f78276284181343abefde899ee343c6ffc442a6)
+++ tol/btol/set_type/setgra.cpp	(revision 0fb35c79d565a8fa6dd2219062ddcd4b65be144f)
@@ -2269,12 +2269,21 @@
   if(opr)
   {
-    BUserFunction* usf = new BUserFunction("",opr->Grammar());
-    BUserFunCode* result = usf->GetCode();
-    usf->PutName(opr->Name());
-    usf->PutDescription(opr->Description());
-    usf->SetExpression(opr->Declaration(), opr->Definition()); 
-    result->PutName(opr->Name());
-    result->PutDescription(opr->Description());
-    return(result);
+    if(opr->Mode()==BBUILTINFUNMODE)
+    {
+      BCode newCod;
+      newCod.Replicate(Code(obj));
+      return(new BContensCode("",newCod,""));
+    }
+    else if(opr->Mode()==BUSERFUNMODE)
+    {
+      BUserFunction* usf = new BUserFunction("",opr->Grammar());
+      BUserFunCode* result = usf->GetCode();
+      usf->PutName(opr->Name());
+      usf->PutDescription(opr->Description());
+      usf->SetExpression(opr->Declaration(), opr->Definition()); 
+      result->PutName(opr->Name());
+      result->PutDescription(opr->Description());
+      return(result);
+    }
   }
   else