diff --git a/ChangeLog b/ChangeLog
index 948330624..585c690d7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2002-03-17  Havoc Pennington  <hp@pobox.com>
+
+	* src/session.c (set_clone_restart_commands): use proper property
+	name for SmDiscardCommand (instead of setting the clone command to
+	"rm"). Also fix typo that iterated over clonev not discardv to
+	fill in prop list, and NULL-terminate discardv. #74584 from Kang
+	Jeong-Hee.
+
 2002-03-13  Havoc Pennington  <hp@pobox.com>
 
 	* src/main.c (main): put back --sm-client-id argument, needed
diff --git a/src/session.c b/src/session.c
index e41c9a6f2..748cdbf11 100644
--- a/src/session.c
+++ b/src/session.c
@@ -532,13 +532,15 @@ set_clone_restart_commands (void)
   discardv[i] = "-f";
   ++i;
   discardv[i] = (char*) full_save_file ();
-
-  prop3.name = SmCloneCommand;
+  ++i;
+  discardv[i] = NULL;
+  
+  prop3.name = SmDiscardCommand;
   prop3.type = SmLISTofARRAY8;
   
   prop3.vals = g_new (SmPropValue, i);
   i = 0;
-  while (clonev[i])
+  while (discardv[i])
     {
       prop3.vals[i].value = discardv[i];
       prop3.vals[i].length = strlen (discardv[i]);