--- loncom/interface/lonprintout.pm	2002/07/25 18:58:09	1.42
+++ loncom/interface/lonprintout.pm	2002/07/26 18:40:43	1.43
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.42 2002/07/25 18:58:09 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.43 2002/07/26 18:40:43 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -284,7 +284,7 @@ ENDPART
 	$first_comment = index($result,'<!--',$first_comment);
     }
     $result =~ s/^\s+$//gm; #remove empty lines
-    $result =~ s/%/\\%/g;   #corrects %
+    $result =~ s/([^\\])%/\$1\%/g;   #corrects %
     $result =~ s/(\s)+/$1/g; #removes more than one empty space
     $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
     $result =~ s/ (<|>|) / \$$1\$ /g; #corrects < or >