Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	15 Oct 2003 12:35:51 -0000	1.12
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	30 Dec 2003 22:55:20 -0000	1.13
@@ -102,14 +102,17 @@
     set format   [lindex $richtext_list 1]
 
     switch $what {
-        contents {
+        contents - content - text {
             # Replace contents with value
             return [list $value $format]
         }
-        format {
+        format - mime_type {
             # Replace format with value
             return [list $contents $value]
         }
+        default {
+            error "Invalid property $what, valid properties are text (synonyms content, contents), mime_type (synonym format)."
+        }
     }
 }
 
@@ -121,10 +124,10 @@
     set format    [lindex $richtext_list 1]
 
     switch $what {
-        contents {
+        content - contents - text {
             return $contents
         }
-        format {
+        format - mime_type {
             return $format
         }
         html_value {
@@ -134,6 +137,9 @@
                 return {}
             }
         }
+        default {
+            error "Invalid property $what, valid properties are text (synonyms content, contents), mime_type (synonym format), html_value"
+        }
     }
 }