*** new-markup.scm.1.7.23	2003-07-03 12:19:01.000000000 -0400
--- new-markup.scm	2003-07-03 12:35:08.000000000 -0400
***************
*** 380,385 ****
--- 380,396 ----
     (car rest))
    ))
  
+ (define-public (box-markup grob props . rest)
+   "Syntax: \\box MARKUP"
+   (let*
+       (
+        (th 0.1)
+        (pad 0.2)
+        (m (interpret-markup grob props (car rest)))
+        )
+     (boxify-molecule m th pad)
+   ))
+ 
  (define (markup-signature-to-keyword sig)
    " (A B C) -> a0-b1-c2 "
    
***************
*** 538,543 ****
--- 549,556 ----
     (cons raise-markup (list number? markup?))
     (cons magnify-markup (list number? markup?))
     (cons fontsize-markup (list number? markup?))
+ 
+    (cons box-markup  (list markup?))
     )
    )