From aec48f1ecabec6d5f4f1b3d9218662f075083da5 Mon Sep 17 00:00:00 2001
From: "p.kosyh" <p.kosyh@gmail.com>
Date: Tue, 19 Jan 2010 07:19:14 +0000
Subject: [PATCH] cleanup in slot name in stead

---
 stead/stead.lua | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/stead/stead.lua b/stead/stead.lua
index 1e9854f..06f7583 100644
--- a/stead/stead.lua
+++ b/stead/stead.lua
@@ -1432,7 +1432,10 @@ function game_save(self, name, file)
 	if not h then
 		return nil, false
 	end
-	h:write("-- $Name: "..call(here(),'nam').."$\n");
+	local n = call(here(),'nam');
+	if type(n) == 'string' and n ~= "" then
+		h:write("-- $Name: "..n.."$\n");
+	end
 	for_each_object(save_object, h);
 	save_object('game', self, h);
 	clearvar(_G);