[sawfish] Fixed viewport init bug.

[Jeremy Hankins <jjhankins src gnome org>]

commit e4502fea2808fba61ec420c87e940c9d9e2776e6
Author: Jeremy Hankins <nowan nowan org>
Date:   Fri Aug 13 12:25:01 2010 -0500

    Fixed viewport init bug.

 ChangeLog                   |    3 +++
 lisp/sawfish/wm/viewport.jl |   10 ++++++----
 2 files changed, 9 insertions(+), 4 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 5550056..4b97525 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2010-08-13  Jeremy Hankins <nowan nowan org>
+	* lisp/sawfish/wm/viewport.jl: Fixed viewport init bug.
+
 2010-07-31  Teika kazura <teika lavabit com>
 	* KEYBINDINGS
 	* lisp/sawfish/wm.jl
diff --git a/lisp/sawfish/wm/viewport.jl b/lisp/sawfish/wm/viewport.jl
index c16491c..79feda7 100644
--- a/lisp/sawfish/wm/viewport.jl
+++ b/lisp/sawfish/wm/viewport.jl
@@ -164,10 +164,12 @@ Scroll is done whose steps are `scroll-viewport-steps'."
     ;; Reset all workspaces to viewport 0,0.  This is so that on
     ;; restart (or if another wm takes over) windows aren't in strange
     ;; places.
-    (mapc (lambda (ws-data)
-            (select-workspace (car ws-data))
-            (set-screen-viewport 0 0))
-          workspace-viewport-data))
+    (if workspace-viewport-data
+        (mapc (lambda (ws-data)
+                (select-workspace (car ws-data))
+                (set-screen-viewport 0 0))
+              workspace-viewport-data)
+      (set-screen-viewport 0 0)))
 
   (add-hook 'before-exit-hook viewport-before-exiting t)