Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.376 -r1.377
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	23 Nov 2009 09:55:36 -0000	1.376
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	23 Nov 2009 13:51:26 -0000	1.377
@@ -2039,7 +2039,12 @@
     return $count
   }
 
-  PageTemplate instproc css_class_name {{-margin_form:boolean true}} {
+  Page instproc css_class_name {{-margin_form:boolean true}} {
+    # Determine the CSS class name for an HTML-form.
+    #
+    # We need this acually only for PageTemplate and FormPage, but
+    # aliases will require XOTcl 2.0.... so we define it for the time
+    # being on ::xowiki::Page
     set name [expr {$margin_form ? "margin-form " : ""}]
     set CSSname [my name]
     regexp {^..:(.*)$} $CSSname _ CSSname