Index: parametric_lht/common_subc.awk
===================================================================
--- parametric_lht/common_subc.awk	(revision 27198)
+++ parametric_lht/common_subc.awk	(revision 27199)
@@ -265,6 +265,7 @@
 	s = s "     htop = " int(htop) NL
 	s = s "     hbottom = " int(hbottom) NL
 	PROTO[proto] = PROTO[proto] s
+	PROTO_HOLE[proto] = dia
 }
 
 function subc_pstk_no_hole(proto   ,s)
@@ -496,7 +497,7 @@
 	s = s "     y = " unit(y) NL
 	s = s "     rot = " rot+0 NL
 	s = s "     smirror = 0; xmirror = 0" NL
-	s = s "     clearance = " unit(either(clearance, DEFAULT["pin_clearance"])/2) NL
+	s = s "     clearance = " unit(either(clearance, (PROTO_HOLE[proto] > 0 ? DEFAULT["pin_clearance"] : DEFAULT["pad_clearance"]))/2) NL
 	s = s "     ha:attributes {" NL
 	s = s "      term = " termid NL
 	if (name != "")