Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.172.2.2.4.6 -r1.172.2.2.4.7
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	28 Jul 2004 00:06:26 -0000	1.172.2.2.4.6
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	30 Jul 2004 01:15:50 -0000	1.172.2.2.4.7
@@ -733,9 +733,15 @@
 		    db_foreach revert_get_source_elements {} {
 			# the element might not be on the target page...
 			set target_element_id \
-                            [db_string revert_get_target_element {}]
+                            [db_string revert_get_target_element {} -default {}]
 			
-			db_dml revert_element_update {}
+			# now, lets check if this is one new applet
+			# added, that was not originally mapped
+			# usually with custom portlets
+			
+			if ![empty_string_p $target_element_id] {
+			    db_dml revert_element_update {}
+			}
 		    }
 		}
         } elseif { ![empty_string_p [ns_set get $form "op_rename"]] } {