Index: scm/titling.scm
===================================================================
RCS file: /cvsroot/lilypond/lilypond/scm/titling.scm,v
retrieving revision 1.21
diff -u -3 -p -r1.21 titling.scm
--- scm/titling.scm	6 Feb 2006 01:13:59 -0000	1.21
+++ scm/titling.scm	27 Jun 2006 14:16:21 -0000
@@ -43,7 +43,17 @@ page:last?, page:page-number-string and 
 					  (ly:output-def-lookup layout 'tagline)))
 		 (cons 'page:last? last?)
 		 (cons 'page:page-number-string
-		       (number->string page-number))
+		       (cond
+			((equal? (ly:output-def-lookup layout 'page-number-format) "arabic")
+			 (number->string page-number))
+			((equal? (ly:output-def-lookup layout 'page-number-format) "roman")
+			 (string-downcase (format #f "address@hidden" page-number)))
+			((equal? (ly:output-def-lookup layout 'page-number-format) "Roman")
+			 (format #f "address@hidden" page-number))
+			((closure? (ly:output-def-lookup layout 'page-number-format))
+			 ((ly:output-def-lookup layout 'page-number-format) page-number))
+			(else
+			 (number->string page-number))))
 		 (cons 'page:page-number page-number)))
 	       (props (append
 		       (list pgnum-alist)