diff --git a/gb.dbus/src/gb.dbus/.project b/gb.dbus/src/gb.dbus/.project
index 49969a50a..e11c4078d 100644
--- a/gb.dbus/src/gb.dbus/.project
+++ b/gb.dbus/src/gb.dbus/.project
@@ -1,7 +1,7 @@
 # Gambas Project File 3.0
 Title=gb.dbus
 Startup=MMain
-Version=3.11.90
+Version=3.13.90
 VersionFile=1
 Component=gb.dbus
 TabSize=2
diff --git a/gb.dbus/src/gb.dbus/.src/DBusObject.class b/gb.dbus/src/gb.dbus/.src/DBusObject.class
index ead0cc578..f9547f841 100644
--- a/gb.dbus/src/gb.dbus/.src/DBusObject.class
+++ b/gb.dbus/src/gb.dbus/.src/DBusObject.class
@@ -127,7 +127,7 @@ Public Sub _Register(hConnection As DBusConnection, sFullPath As String, Optiona
   
   If Not $sName Then 
     $sName = DBus._RegisterApplication(hConnection)
-    If Not DBus.Unique Then $sName = Left($sName, - Len(CStr(Application.Id)) - 1)
+    If Not DBus.Unique Then $sName = Left($sName, -Len(CStr(Application.Id)) - 1)
   Endif
   
   iPos = InStr(sFullPath, "/")
@@ -387,7 +387,7 @@ Public Sub _Introspect() As String
         sArg = ""
 
         For iInd = 0 To aSign.Max
-          sArg &= "      <arg name=\"arg" & CStr(iInd + 1) & "\" type=\"" & aSign[iInd] & "\"/>\n"
+          sArg &= "      <arg name=\"arg" & CStr(iInd + 1) & "\" type=\"" & aSign[iInd] & "\" direction=\"in\"/>\n"
         Next
 
         If sKind = Class.Event Then