Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v
diff -u -N -r1.28 -r1.29
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl	27 Feb 2004 15:48:15 -0000	1.28
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl	10 Mar 2004 10:14:53 -0000	1.29
@@ -406,6 +406,13 @@
 } {
   get_reference
 
+  global af_parts
+
+    if { [info exists af_parts(${id}__form)] && ![info exists af_parts(${id}__extend)] } {
+      error "Form '$id' declared using ad_form doesn't have any action blocks, e.g. on_submit."
+  }
+    
+
   #----------------------------------------------------------------------
   # Check for errors on form
   #----------------------------------------------------------------------