--- dropcap.tmac.orig	Fri Mar 18 15:27:23 2005
+++ dropcap.tmac	Fri Mar 18 15:09:34 2005
@@ -107,9 +107,10 @@
 .  nr dc::linesindex \\n[dc::linesm1]
 .  ds dc::font \\$4
 .  ds dc::family \\$5
-.  nr dc::adjustment (u;\\$6)
-.  nr dc::lastadjust (u;\\$6)
-.  shift 5
+.  nr dc::initadjust (u;\\$6)
+.  nr dc::adjustment (u;\\$7)
+.  nr dc::lastadjust (u;\\$7)
+.  shift 6
 .  while \\n[dc::linesindex]>0 \{\
 .     nr dc::adjustarray\\n[dc::linesindex] 0
 .     ie \\n[.$]>0 \{\
@@ -128,7 +129,7 @@
 .  nr dc::dropheight \\n[rst]
 .  nr dc::orig-indent \\n[.i]
 .  nop \\v'(\\n[dc::dropheight]u-\\n[dc::charheight]u)'\c
-.  nop \\m[\\*[dc::dropcolor]]\\[dc::dcap]\\m[]\c
+.  nop \\m[\\*[dc::dropcolor]]\\[dc::dcap]\\m[]\h'\\n[dc::initadjust]u'\c
 .  nop \\v'-\\n[dc::dropheight]u+\\n[dc::charheight]u'\c
 .  nop \\v'\\n[dc::linesm1]'\c
 .  mk dc::droppos