diff --git a/basis/windows/nt/nt.factor b/basis/windows/nt/nt.factor
index e05a409e67..abc728ed19 100644
--- a/basis/windows/nt/nt.factor
+++ b/basis/windows/nt/nt.factor
@@ -14,4 +14,5 @@ USING: alien sequences alien.libraries ;
     { "glu"      "glu32.dll"    "stdcall" }
     { "ole32"    "ole32.dll"    "stdcall" }
     { "usp10"    "usp10.dll"    "stdcall" }
+    { "psapi"    "psapi.dll"    "stdcall" }
 } [ first3 add-library ] each
diff --git a/basis/windows/psapi/authors.txt b/basis/windows/psapi/authors.txt
new file mode 100755
index 0000000000..b4bd0e7b35
--- /dev/null
+++ b/basis/windows/psapi/authors.txt
@@ -0,0 +1 @@
+Doug Coleman
\ No newline at end of file
diff --git a/basis/windows/psapi/psapi.factor b/basis/windows/psapi/psapi.factor
new file mode 100755
index 0000000000..b45928f615
--- /dev/null
+++ b/basis/windows/psapi/psapi.factor
@@ -0,0 +1,12 @@
+! Copyright (C) 2009 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien.syntax windows.types ;
+IN: windows.psapi
+
+LIBRARY: psapi
+
+FUNCTION: BOOL EnumDeviceDrivers ( LPVOID* lpImageBase, DWORD cb, LPDWORD lpcbNeeded ) ;
+
+FUNCTION: DWORD GetDeviceDriverBaseNameW ( LPVOID ImageBase, LPTSTR lpBaseName, DWORD nSize ) ;
+
+ALIAS: GetDeviceDriverBaseName GetDeviceDriverBaseNameW