diff --git a/src/db/dbTest.c b/src/db/dbTest.c
index 622c0cbec..2e0882228 100644
--- a/src/db/dbTest.c
+++ b/src/db/dbTest.c
@@ -80,6 +80,8 @@
  *	char	*pname		Driver name. If null all drivers
  *	int	type		<0,1> => <short, full> report
  *
+ * dbhcr(null)			hardware configuration report
+ *
  * dblls(ptypeName)		list lock sets
  *	char	*ptypeName;	Record type. If null all record types
  *
@@ -696,6 +698,16 @@ long dbior(char	*pdrvName,int type)
     }
     return(0);
 }
+int dbhcr(void)
+{
+
+    if(!pdbBase) {
+	printf("No database\n");
+	return(0);
+    }
+    dbReportDeviceConfig(pdbBase,stdout);
+    return(0);
+}
 
 long dblls(int	lockset)
 {