Index: openacs-4/packages/dotlrn-fs/sql/postgresql/dotlrn-fs-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/sql/postgresql/dotlrn-fs-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-fs/sql/postgresql/dotlrn-fs-create.sql	9 Jul 2002 20:11:22 -0000	1.1
+++ openacs-4/packages/dotlrn-fs/sql/postgresql/dotlrn-fs-create.sql	31 Jul 2002 21:18:33 -0000	1.2
@@ -143,7 +143,6 @@
           ''TCL''
     );
 
-    -- Clone
     foo := acs_sc_impl_alias__new (
           ''dotlrn_applet'',
           ''dotlrn_fs'',
@@ -152,16 +151,22 @@
           ''TCL''
     );
 
-	-- Add the binding
-	perform acs_sc_binding__new (
-	      ''dotlrn_applet'',
-	      ''dotlrn_fs''
-	);
+    foo := acs_sc_impl_alias__new (
+          ''dotlrn_applet'',
+          ''dotlrn_fs'',
+          ''ChangeEventHandler'',
+          ''dotlrn_fs::change_event_handler'',
+          ''TCL''
+    );
 
-	return 0;
+    perform acs_sc_binding__new (
+            ''dotlrn_applet'',
+            ''dotlrn_fs''
+    );
 
+    return 0;
+
 end;' language 'plpgsql';
 
 select inline_0();
 drop function inline_0();
-
