diff --git a/qml.core.scm b/qml.core.scm
index 45266ea..0575b79 100644
--- a/qml.core.scm
+++ b/qml.core.scm
@@ -591,7 +591,7 @@
 
   (define-class <QAbstractItemModel> (<QObject>))
   (define (new-QAbstractItemModel callback meta-object dcallback callbacks)
-    (dos_qabstractitemmodel_create callback (ptr meta-object) dcallback (ptr callbacks)))
+    (make <QAbstractItemModel> 'ptr (dos_qabstractitemmodel_create callback (ptr meta-object) dcallback (ptr callbacks))))
   (define-method (set-data (qaim <QAbstractItemModel>) (qmi <QModelIndex>) (qv <QVariant>) (role <QItemDataRole>))
     (dos_qabstractitemmodel_setData (ptr qaim) (ptr qmi) (ptr qv) (val role)))
   (define-method (flags (qaim <QAbstractItemModel>) (qmi <QModelIndex>))