diff --git a/pyscript/configure.zcml b/pyscript/configure.zcml
index 1805f42..a160901 100644
--- a/pyscript/configure.zcml
+++ b/pyscript/configure.zcml
@@ -20,7 +20,7 @@
         />
     <require
         permission="zope.ManageContent"
-        set_attributes="parameters source contentType"
+        set_attributes="title parameters source contentType"
         />
     <implements
         interface="zope.annotation.interfaces.IAttributeAnnotatable"
diff --git a/pyscript/rstat.py b/pyscript/rstat.py
index df736dd..33c82ed 100644
--- a/pyscript/rstat.py
+++ b/pyscript/rstat.py
@@ -88,7 +88,7 @@ class RStat(object):
         rows = {}
         for rowId, columnId, value in data:
             element = rows.setdefault(rowId, [])
-            element.append(rowId)
+            element.append(columnId)
         columnsToOmit = []
         for rowId, row in rows.items():
             for columnId in row:
@@ -98,8 +98,7 @@ class RStat(object):
         result = {}
         for rowId, columnId, value in data:
             if columnId not in columnsToOmit:
-                element = result.setdefault(rowId, [])
-                element.append(value)
-        rpy.set_default_mode(rpy.NO_CONVERSION)
-        matrix = r.data_frame(**result)
+                result.setdefault(rowId, []).append(value)
+        #print result
+        matrix = rpy.with_mode(rpy.NO_CONVERSION, r.data_frame)(**result)
         return matrix
diff --git a/pyscript/script.py b/pyscript/script.py
index d85e80c..c344a15 100644
--- a/pyscript/script.py
+++ b/pyscript/script.py
@@ -61,7 +61,7 @@ class RExpression(RestrictedPython.RCompile.RestrictedCompileMode):
 
     CodeGeneratorClass = compiler.pycodegen.ExpressionCodeGenerator
 
-    def __init__(self, source, filename, mode = "eval"):
+    def __init__(self, source, filename, mode="eval"):
         self.mode = mode
         RestrictedPython.RCompile.RestrictedCompileMode.__init__(
             self, source, filename)
diff --git a/pyscript/tests.py b/pyscript/tests.py
index 8eb6798..2b82620 100644
--- a/pyscript/tests.py
+++ b/pyscript/tests.py
@@ -26,7 +26,7 @@ from zope.traversing.interfaces import IPhysicallyLocatable
 from zope.traversing.adapters import RootPhysicallyLocatable
 from zope.app.container.contained import Contained
 from zope.app.testing import placelesssetup
-from cybertools.pyscript.script import ScriptContainer
+from cybertools.pyscript.script import ScriptContainer, HAS_R
 
 
 class Root(ScriptContainer, Contained):
@@ -44,10 +44,12 @@ def setUp(test):
 
 def test_suite():
     flags = doctest.NORMALIZE_WHITESPACE | doctest.ELLIPSIS
-    return unittest.TestSuite((
-        DocFileSuite('README.txt', optionflags=flags,
-                     setUp=setUp, tearDown=placelesssetup.tearDown),
-        ))
+    suites = [DocFileSuite('README.txt', optionflags=flags,
+              setUp=setUp, tearDown=placelesssetup.tearDown)]
+    if HAS_R:
+        suites.append(DocFileSuite('rstat.txt', optionflags=flags,
+                      setUp=setUp, tearDown=placelesssetup.tearDown))
+    return unittest.TestSuite(suites)
 
 if __name__ == '__main__':
     unittest.main()