diff --git a/hxournal.cabal b/hxournal.cabal
--- a/hxournal.cabal
+++ b/hxournal.cabal
@@ -1,5 +1,5 @@
 Name:		hxournal
-Version:	0.6.4
+Version:	0.6.4.0
 Synopsis:	A pen notetaking program written in haskell 
 Description: 	notetaking program written in haskell and gtk2hs
 Homepage:       http://ianwookim.org/hxournal
diff --git a/lib/Application/HXournal/Coroutine/Page.hs b/lib/Application/HXournal/Coroutine/Page.hs
--- a/lib/Application/HXournal/Coroutine/Page.hs
+++ b/lib/Application/HXournal/Coroutine/Page.hs
@@ -95,7 +95,7 @@
 
 canvasZoomUpdateCvsId :: CanvasId -> Maybe ZoomMode -> MainCoroutine ()
 canvasZoomUpdateCvsId cid mzmode = updateXState zoomUpdateAction 
-                                   >> adjustScrollbarWithGeometryCurrent
+                                   >> adjustScrollbarWithGeometryCvsId cid
                                    >> invalidateAll
   where zoomUpdateAction xst =  
           selectBoxAction (fsingle xst) (fcont xst) . getCanvasInfo cid $ xst 
diff --git a/lib/Application/HXournal/Coroutine/Window.hs b/lib/Application/HXournal/Coroutine/Window.hs
--- a/lib/Application/HXournal/Coroutine/Window.hs
+++ b/lib/Application/HXournal/Coroutine/Window.hs
@@ -51,6 +51,7 @@
           return $ setCanvasInfo (cid,CanvasInfoBox cinfo') xstate
         fcont xstate cinfo = do 
           let cinfo' = updateCanvasDimForContSingle cdim cinfo 
+          liftIO $ print cdim 
           return $ setCanvasInfo (cid,CanvasInfoBox cinfo') xstate 
 
 
@@ -69,6 +70,7 @@
       Right fstate' -> do 
         case maybeError "eitherSplit" . M.lookup currcid $ cmap of 
           CanvasInfoBox oldcinfo -> do 
+            liftIO $ putStrLn "called here"
             let rtwin = get rootWindow xstate
                 rtcntr = get rootContainer xstate 
             liftIO $ containerRemove rtcntr rtwin
@@ -81,12 +83,14 @@
             liftIO $ boxPackEnd rtcntr win PackGrow 0 
             liftIO $ widgetShowAll rtcntr  
             (xstate4,wconf) <- liftIO $ eventConnect xstate3 (get frameState xstate3)
-            canvasZoomUpdateAll
+            -- liftIO $ putStrLn " called here 2 " 
+            -- canvasZoomUpdateAll
+            -- liftIO $ putStrLn " called here 3 "
             xstate5 <- liftIO $ updatePageAll (get xournalstate xstate4) xstate4
             putSt xstate5 
             invalidateAll 
 
-                
+          
 
 
 -- | 
@@ -125,8 +129,3 @@
             putSt xstate5 
             invalidateAll 
             
-{-            liftIO $ boxPackEnd rtcntr win PackGrow 0 
-            liftIO $ widgetShowAll rtcntr   
-            liftIO $ widgetDestroy (get scrolledWindow oldcinfo)
-            liftIO $ widgetDestroy (get drawArea oldcinfo)
- -}       
diff --git a/lib/Application/HXournal/View/Coordinate.hs b/lib/Application/HXournal/View/Coordinate.hs
--- a/lib/Application/HXournal/View/Coordinate.hs
+++ b/lib/Application/HXournal/View/Coordinate.hs
@@ -61,7 +61,6 @@
                       -> IO CanvasGeometry 
 makeCanvasGeometry typ (cpn,page) arr canvas = do  
   win <- widgetGetDrawWindow canvas
-  -- (w',h') <- return . ((,) <$> fromIntegral.fst <*> fromIntegral.snd) =<< widgetGetSize canvas
   let cdim@(CanvasDimension (Dim w' h')) = get canvasDimension arr
   screen <- widgetGetScreen canvas
   (ws,hs) <- (,) <$> (fromIntegral <$> screenGetWidth screen)