--- loncom/homework/default_homework.lcpm	2000/11/21 18:36:37	1.10
+++ loncom/homework/default_homework.lcpm	2000/11/22 00:00:54	1.11
@@ -67,32 +67,26 @@ sub caparesponse_check {
 
 sub tex {
   if ( $external::target eq "tex" ) {
-    #$SCRIPT_RESULT.=@_[0];
     return @_[0];
   } else {
-    #$SCRIPT_RESULT.=@_[1];
     return @_[1];
   }
 }
 
 sub web {
   if ( $external::target eq "tex" ) {
-    #$SCRIPT_RESULT.=@_[1];
     return @_[1];
   } else {
     if ( $external::target eq "web") {
-      #$SCRIPT_RESULT.=@_[0];
       return @_[0];
     } else {
-      #$SCRIPT_RESULT.=@_[2];
       return @_[2];
     }
   }
 }
 
 sub problem {
-  $SCRIPT_RESULT.='1';
-  return '';
+  return '1';
 }
 
 sub hinton {
@@ -113,7 +107,6 @@ sub asin { atan2($_[0], sqrt(1- $_[0] *
 
 sub html {
   if ( $external::target eq "web" ) {
-    #$SCRIPT_RESULT.=@_[0];
     return @_[0];
   }
 }
@@ -125,8 +118,7 @@ sub floor {return int($_[0]);  }
 
 sub format {
   my ($value,$fmt)=@_;
-  $SCRIPT_RESULT.=sprintf('%.'.$fmt,$value);
-  return $SCRIPT_RESULT;
+  return sprintf('%.'.$fmt,$value);
 }
 
 sub map {