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 -N -r1.3.2.2 -r1.3.2.3
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	13 Mar 2003 17:55:19 -0000	1.3.2.2
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	16 Mar 2003 14:15:38 -0000	1.3.2.3
@@ -104,6 +104,9 @@
             # Replace format with value
             return [list $contents $value]
         }
+        default {
+            error "Unknown property, '$what'. Valid options are 'contents' and 'format'."
+        }
     }
 }
 
@@ -124,6 +127,9 @@
         html_value {
             return [ad_html_text_convert -from $format -to "text/html" -- $contents]
         }
+        default {
+            error "Unknown property, '$what'. Valid options are 'contents' and 'format', and 'html_value'."
+        }
     }
 }