Index: openacs-4/packages/acs-templating/www/doc/demo/fibo-start.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/fibo-start.tcl,v
diff -u -r1.2.28.1 -r1.2.28.2
--- openacs-4/packages/acs-templating/www/doc/demo/fibo-start.tcl	10 Sep 2015 08:22:10 -0000	1.2.28.1
+++ openacs-4/packages/acs-templating/www/doc/demo/fibo-start.tcl	14 May 2016 09:58:04 -0000	1.2.28.2
@@ -4,8 +4,15 @@
     m:onevalue
 } -query {
     m:naturalnum,notnull
+} -validate {
+    check_size_of_m -requires m {
+	if { $m > 15 } {
+	    ad_complain "This demo allows only m <= 15"
+	}
+    }
 }
 
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4