diff --git a/counter.cls b/counter.cls
index b21853c..7e6662a 100644
--- a/counter.cls
+++ b/counter.cls
@@ -136,7 +136,6 @@ Private Function BytesToStr(ab() As Byte) As String
     
 End Function
 Private Function TaskInterface_Tick() As Boolean
-
  Dim X As Integer, mycnt As Long
 Dim lpBuffer(2048) As Byte
 On Error GoTo there
diff --git a/pic.bas b/pic.bas
index 307a9e1..aeccde3 100644
--- a/pic.bas
+++ b/pic.bas
@@ -372,7 +372,7 @@ Public Function MaskLowLongLong() As Variant
 End Function
 Public Function Signed(A) As Long
     Dim p
-    p = CDec(Int(A))
+    p = Fix(CDec(A))
     Signed = MemLong(VarPtr(p) + 8)
 End Function
 Public Function UnsignedSub(A As Long, b As Long)