Fixed one of resizer's width limits.

diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm
index 21536d9691eddde9e124780926c429d759486dc8..44d0530707c36e012662c8081a1254487ca13f52 100644 (file)
--- a/src/gtk/fix-layout.scm
+++ b/src/gtk/fix-layout.scm
@@ -880,8 +880,9 @@ USA.
                                (fix:min dx dx-max))
                              ;; Before should get only so small.
                              (let ((dx-min
-                                    (fix:max 0
-                                             (fix:- (car w.h-before) 5))))
+                                    (fix:min 0
+                                             (fix:*
+                                              -1 (fix:- (car w.h-before) 5)))))
                                (fix:max dx-min dx)))))
                    (adjust! dx-clamped 0)))))
          (begin