diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -8,7 +8,7 @@
 
 ## Unreleased
 
-## 0.7.0.0
+## 0.8.0.0
 
 ### Added
 
diff --git a/src/Waterfall/Internal/Diagram.hs b/src/Waterfall/Internal/Diagram.hs
--- a/src/Waterfall/Internal/Diagram.hs
+++ b/src/Waterfall/Internal/Diagram.hs
@@ -66,7 +66,7 @@
     hi <- liftIO . gpPntToV3 =<< Bnd.Box.cornerMax theBox
     let d = hi - lo
     let maxDim = max (d ^. _x) (d ^. _y)
-    return (maxDim / 10000)
+    return $ max 1e-6 (maxDim / 10000)
 
 calcRayBound :: Ptr TopoDS.Shape -> Acquire Double
 calcRayBound s = do
diff --git a/waterfall-cad.cabal b/waterfall-cad.cabal
--- a/waterfall-cad.cabal
+++ b/waterfall-cad.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           waterfall-cad
-version:        0.7.0.0
+version:        0.8.0.0
 synopsis:       Declarative CAD/Solid Modeling Library
 description:    Please see the README on GitHub at <https://github.com/joe-warren/opencascade-hs#readme>
 category:       Graphics
@@ -97,6 +97,6 @@
     , lattices >=2.0 && <3
     , lens ==5.*
     , linear >=1.21 && <2
-    , opencascade-hs >=0.7.0.0 && <0.8
+    , opencascade-hs >=0.8.0.0 && <0.9
     , resourcet >=1.2 && <1.4
   default-language: Haskell2010