diff --git a/examples/helloworld.scm b/examples/helloworld.scm
index 3e3077d..4fd6b3e 100644
--- a/examples/helloworld.scm
+++ b/examples/helloworld.scm
@@ -9,9 +9,6 @@
   (print cbdata)
   (print "Loaded QML file: " (to (cadr argv) string:)))
 
-(define (textChangeCallback cbdata argv) void
-  (print cbdata))
-
 (define callback-data "Test")
 (define textchange-cbdata "Text Edited")
 
@@ -24,6 +21,10 @@
 (load-url engine loc)
 
 (define nameInputField (find-child (root engine) "nameInputField"))
+
+(define (textChangeCallback cbdata argv) void
+  (print "Text changed to " (to (property nameInputField "text") string:)))
+
 (define conn2 (connect nameInputField "textEdited()"
                        textChangeCallback
                        textchange-cbdata
diff --git a/qml.core.scm b/qml.core.scm
index bb683ae..34c995e 100644
--- a/qml.core.scm
+++ b/qml.core.scm
@@ -342,7 +342,7 @@
   (define-method (set-object-name (qo <QObject>) (name <string>))
     (dos_qobject_setObjectName (slot-value qo) name))
   (define-method (property (qo <QObject>) (propertyName <string>))
-    (dos_qobject_property (slot-value qo 'ptr) propertyName))
+    (make <QVariant> 'ptr (dos_qobject_property (slot-value qo 'ptr) propertyName)))
   (define-method (set-property (qo <QObject>) (propertyName <string>) (value <QVariant>))
     (dos_qobject_setProperty (slot-value qo 'ptr) propertyName (slot-value value 'ptr)))
   (define-method (find-child (qo <QObject>) (child-name <string>))