*** empty log message ***

libraries/iTasks/iTasksProcessHandling.icl

@@ -40,6 +40,7 @@ derive gForm	WorkflowProcess
 derive gUpd		WorkflowProcess
 derive gPrint	WorkflowProcess
 derive gParse	WorkflowProcess
+derive gerda	WorkflowProcess	
 derive read		WorkflowProcess	
 derive write	WorkflowProcess	
 
@@ -64,6 +65,9 @@ where
 	myread :: !*Write -> *Read .String
 	myread pst = read{|*|} pst
 
+gerda{|Dynamic|} 	= abort "Cannot yet store a Dynamic in a Database\n" 
+gerda{|TCl|} ga		= abort "Cannot yet store an iTask of type TCL in a Database\n" 
+
 import DrupBasic