diff --git a/raw-feldspar.cabal b/raw-feldspar.cabal
--- a/raw-feldspar.cabal
+++ b/raw-feldspar.cabal
@@ -1,5 +1,5 @@
 name:                raw-feldspar
-version:             0.2
+version:             0.2.1
 synopsis:            Resource-Aware Feldspar
 description:         An implementation of the Feldspar EDSL with focus on
                      resource-awareness.
diff --git a/src/Feldspar/Data/Vector.hs b/src/Feldspar/Data/Vector.hs
--- a/src/Feldspar/Data/Vector.hs
+++ b/src/Feldspar/Data/Vector.hs
@@ -799,11 +799,13 @@
       ((len `mod` value n) == 0)
       ("unroll: length not divisible by " Prelude.++ show n)
     for (0,n',Excl len) $ \i ->
-      Prelude.sequence_
-        [ do k <- shareM (i + value j)
-             write k (vec!k)
-          | j <- [0..n-1]
-        ]
+      if n Prelude.== 1
+        then write i (vec!i)
+        else Prelude.sequence_
+          [ do k <- shareM (i + value j)
+               write k (vec!k)
+            | j <- [0..n-1]
+          ]
   where
     n'  = Prelude.fromIntegral n
     len = length vec