Index: Include/Classes/System/IO/FileSystemInfo.ab
===================================================================
--- Include/Classes/System/IO/FileSystemInfo.ab	(revision 129)
+++ Include/Classes/System/IO/FileSystemInfo.ab	(revision 130)
@@ -165,9 +165,9 @@
 	End Sub
 
-	Sub Refresh()
+	Virtual Sub Refresh()
 		Dim data As WIN32_FIND_DATA
 		Dim hFind As HANDLE
 		hFind = FindFirstFile(FullPath, data)
-		CloseHandle(hFind)
+		FindClose(hFind)
 
 		m_FileAttributes = data.dwFileAttributes