diff -cr pl-2.1.0/src/pl-fmt.c pl-2.1.0-hacked/src/pl-fmt.c
*** pl-2.1.0/src/pl-fmt.c	Tue Apr 18 14:29:16 1995
--- pl-2.1.0-hacked/src/pl-fmt.c	Fri Jun  9 19:10:08 1995
***************
*** 246,257 ****
--- 246,261 ----
  	      pl_unify(argTermP(*g, n), a);
  	      SHIFT;
  	    }
+ #ifdef UFORMAT_INDIRECT
  	    tellString(buf, BUFSIZE);
  	    debugstatus.suspendTrace++;
+ #endif /* UFORMAT_INDIRECT */
  	    callGoal(MODULE_user, goal, FALSE);
+ #ifdef UFORMAT_INDIRECT
  	    debugstatus.suspendTrace--;
  	    toldString();
  	    OUTSTRING(buf);
+ #endif /* UFORMAT_INDIRECT */
  	    Undo(m);
  
  	    fmt++;
