diff --git a/pool/page.php b/pool/page.php
index 1ac1a8bb..a8750b86 100644
--- a/pool/page.php
+++ b/pool/page.php
@@ -91,6 +91,8 @@ span.topwho {color:black; font-weight: bold; margin-right: 8px;}
 span.topdat {margin-left: 8px; margin-right: 24px; color:green; font-weight: bold;}
 span.login {float: right; margin-left: 8px; margin-right: 24px;}
 span.hil {color:blue;}
+span.warn {color:orange; font-weight:bold;}
+span.urg {color:red; font-weight:bold;}
 #n42 {margin:0; position: relative; color:#fff; background:#07e;}
 #n42 a {color:#fff; text-decoration:none; margin: 4px;}
 #n42 td {min-width: 100px; float: left; vertical-align: top; padding: 2px;}
diff --git a/pool/page_ckp.php b/pool/page_ckp.php
new file mode 100644
index 00000000..ae03d288
--- /dev/null
+++ b/pool/page_ckp.php
@@ -0,0 +1,71 @@
+<?php
+#
+function stnum($num)
+{
+ $b4 = '';
+ $af = '';
+ $fmt = number_format($num, 0);
+ if ($num > 99999999)
+	$b4 = '<span class=urg>';
+ else if ($num > 9999999)
+	$b4 = '<span class=warn>';
+ if ($b4 != '')
+	$af = '</span>';
+ return $b4.$fmt.$af;
+}
+#
+function dockp($data, $user)
+{
+ $pg = '<h1>CKPool</h1>';
+
+ $msg = msgEncode('stats', 'stats', array());
+ $rep = sendsockreply('stats', $msg);
+ if ($rep == false)
+	$ans = array();
+ else
+	$ans = repDecode($rep);
+
+ $pg .= 'TotalRAM: '.stnum($ans['totalram']).'<br>';
+ $pg .= "<table callpadding=0 cellspacing=0 border=0>\n";
+ $pg .= '<tr class=title>';
+ $pg .= '<td class=dl>Name</td>';
+ $pg .= '<td class=dr>Allocated</td>';
+ $pg .= '<td class=dr>Store</td>';
+ $pg .= '<td class=dr>RAM</td>';
+ $pg .= "</tr>\n";
+ if ($ans['STATUS'] == 'ok')
+ {
+	for ($i = 0; $i < 999; $i++)
+	{
+		if ($i == 0)
+			$name = 'stats.name';
+		else
+			$name = 'name';
+
+		if (!isset($ans[$name.$i]))
+			break;
+
+		if (($i % 2) == 0)
+			$row = 'even';
+		else
+			$row = 'odd';
+
+		$pg .= "<tr class=$row>";
+		$pg .= '<td class=dl>'.$ans[$name.$i].'</td>';
+		$pg .= '<td class=dr>'.stnum($ans['allocated'.$i]).'</td>';
+		$pg .= '<td class=dr>'.stnum($ans['store'.$i]).'</td>';
+		$pg .= '<td class=dr>'.stnum($ans['ram'.$i]).'</td>';
+		$pg .= "</tr>\n";
+	}
+ }
+ $pg .= "</table>\n";
+
+ return $pg;
+}
+#
+function show_ckp($menu, $name, $user)
+{
+ gopage(NULL, 'dockp', $menu, $name, $user);
+}
+#
+?>
diff --git a/pool/prime.php b/pool/prime.php
index e06205a4..ae6e5069 100644
--- a/pool/prime.php
+++ b/pool/prime.php
@@ -23,6 +23,8 @@ function process($p, $user)
 		'Payouts' => 'payout'
 	)
  );
+ if ($user == 'Kano' || $user == 'ckolivas')
+	$menu['Help']['ckp'] = 'ckp';
  $page = '';
  $n = '';
  foreach ($menu as $item => $options)