diff -r -u progs.orig/convert/latex/tmtex-preamble.scm progs/convert/latex/tmtex-preamble.scm
--- progs.orig/convert/latex/tmtex-preamble.scm	2003-12-10 16:14:56.000000000 -0700
+++ progs/convert/latex/tmtex-preamble.scm	2003-12-15 23:56:31.000000000 -0700
@@ -79,6 +79,20 @@
       "    \\end{center}\n"
       "  \\end{minipage}}"))
 
+  (define (par-mods)
+    (string-append
+      "\\newenvironment{tmparmod}[3]{%\n"
+      " \\begin{list}{}{%\n"
+      " \\setlength{\\topsep}{0pt}%\n"
+      " \\setlength{\\leftmargin}{#1}%\n"
+      " \\setlength{\\rightmargin}{#2}%\n"
+      " \\setlength{\\parindent}{#3}%\n"
+      " \\setlength{\\listparindent}{\\parindent}%\n"
+      " \\setlength{\\itemindent}{\\parindent}%\n"
+      " \\setlength{\\parsep}{\\parskip}%\n"
+      " }%\n"
+      "\\item[]}{\\end{list}}\n"))
+
   `(;; itemize and enumerate environments
     (itemizeminus ,(newitemize "itemizeminus" "$-$"))
     (itemizedot ,(newitemize "itemizedot" "$\\bullet$"))
@@ -134,6 +148,7 @@
     (tmperson 1 "\\textsc{#1}")
     (tmdummy 0 "$\\mbox{}$")
     (tmscript 1 "\\text{\\scriptsize $#1$}")
+    (tmparmod ,(par-mods))
 
     ;; other extra markup
     (scheme 0 "{\\sc Scheme}")
diff -r -u progs.orig/convert/latex/tmtex.scm progs/convert/latex/tmtex.scm
--- progs.orig/convert/latex/tmtex.scm	2003-12-10 16:14:56.000000000 -0700
+++ progs/convert/latex/tmtex.scm	2003-12-16 00:02:14.000000000 -0700
@@ -686,6 +686,12 @@
 	    (a (tmtex-get-assign-cmd var val)))
 	(cond (w (list w arg))
 	      (a (list '!group (tex-concat (list (list a) " " arg))))
+	      ((== "par-left" var)
+	      	(list (list '!begin "tmparmod" val "0pt" "0pt") arg))
+	      ((== "par-right" var)
+	      	(list (list '!begin "tmparmod" "0pt" val "0pt") arg))
+	      ((== "par-first" var)
+	      	(list (list '!begin "tmparmod" "0pt" "0pt" val) arg))
 	      (else arg)))))
 
 (define (tmtex-with l)