From 98a1a341fc9d967852cc7a7063d3be3eb14ce1e9 Mon Sep 17 00:00:00 2001
From: jsalmon3 <>
Date: Mon, 17 Feb 2003 01:44:24 +0000
Subject: [PATCH] Cleanup

---
 src/stratagus/script.cpp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/stratagus/script.cpp b/src/stratagus/script.cpp
index 92b7f24ad..5ba326ae0 100644
--- a/src/stratagus/script.cpp
+++ b/src/stratagus/script.cpp
@@ -10,7 +10,7 @@
 //
 /**@name ccl.c		-	The craft configuration language. */
 //
-//	(c) Copyright 1998-2002 by Lutz Sammer
+//	(c) Copyright 1998-2003 by Lutz Sammer
 //
 //	FreeCraft is free software; you can redistribute it and/or modify
 //	it under the terms of the GNU General Public License as published
@@ -907,19 +907,19 @@ global void SavePreferences(void)
     buf[0] = '\0';
     switch (CDMode) {
 	case CDModeAll:
-	    strcpy(buf, "'all");
+	    strcpy(buf, "all");
 	    break;
 	case CDModeRandom:
-	    strcpy(buf, "'random");
+	    strcpy(buf, "random");
 	    break;
 	case CDModeDefined:
-	    strcpy(buf, "'defined");
+	    strcpy(buf, "defined");
 	    break;
 	default:
 	    break;
     }
     if (buf[0]) {
-	fprintf(fd,"(set-cd-mode! \"%s\")\n", buf);
+	fprintf(fd,"(set-cd-mode! '%s)\n", buf);
     }
 #endif
 #endif